{  Statement: http://acmp.ru/?main=task&id_task=16
   Verdict: Accepted
}
uses
    SysUtils, Math;

var
    i, n : longint;
    ans : int64;

procedure go(k, cur : longint);

var
    i : longint;

begin
    if k = 0 then begin
        inc(ans);
        exit;
    end;
    for i := k downto 1 do 
        if i < cur then go(k - i, i);
end;

begin
    reset(input,'input.txt');
    rewrite(output,'output.txt');
    read(n);
    ans := 0;
    for i := n downto 1 do
        go(n - i, i);
    write(ans);
end.